Option Explicit
'ThisWorkbookҲ
Private Sub Workbook_NewSheet(ByVal Sh As Object)
    MsgBox Me.Name & "sW" & Sh.Name & "oӪC"
End Sub
